100 '   programma 14    SINUSKROMMEN IN CIRKELS
110 CLEAR ,19202 : SCREEN 105,,3,3
120 DEF FNX(X)=INT(1.55*(50+X)+.5)
130 CLS: KEY OFF
140 U=160 : V=160 : H=.5 : RD=4*ATN(1)/180
150 FOR K=-40 TO 40 STEP 10
160 	X1=U+60 : Y1=V
170 	FOR W=2 TO 360 STEP 2
180 		P=W*RD : R=60+K*SIN(4*P)
190 		X2=INT(U+R*COS(P)+H)
200 		Y2=INT(V-R*SIN(P)+H)
210 		LINE (FNX(X1),Y1)-(FNX(X2),Y2),1
220 		X1=X2 : Y1=Y2
230 	NEXT W
240 NEXT K
250 A$=INKEY$: IF A$="" THEN 250
260 CLS: KEY ON: END

Dim U As Single = 160, V As Single = 160, H As Single = 0.5
Dim RD As Single = 4 * Math.Atan(1) / 180
For K As Integer = -40 To 40 Step 10
Dim X1 As Single = U + 60, Y1 As Single = V
	For W As Integer = 2 To 360 Step 2
		Dim P As Single = W * RD, R As Single = 60 + K * Math.Sin(4 * P)
		Dim X2 As Single = Int(U + R * Math.Cos(P) + H)
		Dim Y2 As Single = Int(V - R * Math.Sin(P) + H)
		e.Graphics.DrawLine(Pens.Black, X1, Y1, X2, Y2)
		X1 = X2 : Y1 = Y2
	Next
Next

Probeert u eens:		1000 R=2*TAN(2*P)+K*SIN(2*COS(SIN(6*P)))

En voor Visual Basic een nieuwe PoolVorm functie met als Return code:

Return 2 * Math.Tan(2 * P) + K * Math.Sin(2 * Math.Cos(Math.Sin(6 * P)))

Verander de Dim regel voor variabele R in:

Dim R As Single = PoolVorm(P, K)

Zorg er dus voor dat u een PoolVorm functie hebt met twee parameters.

